home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / buildlib.1 / buildlib / usr / local / bin / buildlib.pl
Encoding:
Perl Script  |  1994-12-26  |  9.4 KB  |  326 lines
  1. #!/usr/bin/perl -w
  2. # universal shlib builder v.0.1
  3. #
  4. #     - Patrick Nguyen (pnguyen@elde.epfl.ch) (aka MegaFork)
  5. # my 2nd perl script (using perl5).
  6. # 
  7. #*****************************************************************************#
  8. #*    This program has been written by Patrick Nguyen                 *#
  9. #* You may distribute, copy, modify, use this program in any manner you wish *#
  10. #* providing that:                                 *#
  11. #*     - You hold the author harmless for any damage this program may cause *#
  12. #*      - You  charge  no fee  for use,  distribution,  work,  installation, *#
  13. #*        customization or anything that is related to this program or its *#
  14. #*        derivates.                                 *#
  15. #*    - This notice is always included as-is,  with no change of any kind, *#
  16. #*       in any distribution, extract or any human-readable form.          *#
  17. #*    - Any modification you brought to this  program is commented as one, *#
  18. #*       and signed.                                 *#
  19. #*    - The name of  Patrick Nguyen  may  be used to  neither endorse  nor *#
  20. #*       promote  products derived  from this software  without  specific  *#
  21. #*       prior  written permission.                         *#
  22. #*                                         *#
  23. #* Please note that I, as the author, may change the program without adding  *#
  24. #* any comment or notice.                             *#
  25. #* This  program is  distributed  in the  hope that it will be useful,  but  *#
  26. #* without  any  warrantee or  guarantee  of  any  kind,  neither  explicit  *#
  27. #* nor implied, not even this of merchantability and use.             *#
  28. #*                    Patrick Nguyen.                 *#
  29. #* My address:                                     *#
  30. #*  Patrick Nguyen                                 *#
  31. #*  7, ch. de la Goumoenche                             *#
  32. #*  CH-1027 Lonay ( Switzerland )                         *#
  33. #* or pnguyen@elde.epfl.ch if you're inet.                     *#
  34. #*****************************************************************************#
  35. # ACKNOWLEDGEMENTS:
  36. #  This script is heavily based on a shell script written by Hermann Dunkel
  37. # <hedu@cul-ipn.uni-kiel.de>, itself based on a logfile by Jens Claussen
  38. # <claussen@db.fmi.uni-passau.de>. An updated version by myself can be found
  39. # in the package wxWin_shlib, which you should find at your favorite linux
  40. # site.
  41. #
  42. # the initials `mf' should hereinafter refer as me (MegaFork).
  43. #
  44. #--------------------------------------------------------
  45. # editable variables
  46. # ~~~~~~~~~~~~~~~~~~
  47. # The basename for the library:
  48. $NAME="gmp";
  49.  
  50. # Version:
  51. # suffix for the shared lib
  52. $VERSION="1.3.2";
  53.  
  54. # Where should the library be installed?
  55. $DEST_DIR="/usr/local/lib";
  56.  
  57. # X11 support: do we need that?
  58. $NEED_X11=0;
  59. # define this if you need X11
  60. $X11_DIR="/usr/X11R6";
  61.  
  62. # Additionnal libraries (to be passed to the linker).
  63. $ADD_LIBS="";
  64.  
  65. #use whatever value your favorite shlib tables maintainer told you
  66. # Address:
  67. $ADDR="0x67000000";
  68. # J_SIZE: seems reasonable to me -mf
  69. $J_SIZE="0x4000";
  70. # G_SIZE: seems reasonable to me -mf
  71. $G_SIZE="0x2000";
  72.  
  73. # Compiler:
  74. # (would anyone use cc anyway?)
  75. # Add --version if you wish..    -mf
  76. $CC="gcc";
  77.  
  78. # Leave this as is if you don't know
  79. $ROOTDIR=qx{ pwd };
  80. chop($ROOTDIR);
  81.  
  82. #-------------------------------- end of editable area
  83.  
  84. # First, check out the table_description to see whether we are attempting to
  85. # override a shlib.
  86. check_address();
  87.  
  88. # Set the jump directory (where the jump tables shall reside
  89. $JUMP_DIR="$ROOTDIR/jump";
  90. $JUMP_LIB="lib$NAME";
  91. # Setting environnement variables, for use of the dll tools
  92. $ENV{JUMP_DIR}=$JUMP_DIR;
  93. $ENV{JUMP_LIB}=$JUMP_LIB;
  94.  
  95. # The shared libraries specific options that should be passed to `make'.
  96. $SHOPT="CC=\"$CC -O6 -m486 -funroll-loops -D_LINUX_DLL -B/usr/dll/jump/\"";
  97.  
  98. # add /usr/dll/bin to our path
  99. $ENV{PATH}="/usr/dll/bin:$ENV{PATH}";
  100.  
  101. # if the jump directory doesn't exist, create it
  102. if (! -d $JUMP_DIR) {
  103.     mkdir($JUMP_DIR, 0755);
  104. }
  105. chdir("$JUMP_DIR");
  106.  
  107. print "ROOTDIR=$ROOTDIR\n";
  108. print "JUMP_DIR=$JUMP_DIR JUMP_LIB=$JUMP_LIB\n";
  109.  
  110. if (! -d "/usr/dll/bin") {
  111.     print "Could not find /usr/dll/bin!\n";
  112.     print "Is tools-2.x x>=11 installed ?\n";
  113.     exit 1;
  114. }
  115.  
  116. #
  117. # find the existing libs ...
  118. #
  119. $LIB_C="/usr/lib/libc.sa";
  120. $LIB_M="/usr/lib/libm.sa";
  121.  
  122. if ($NEED_X11) {
  123.   $LIB_X11="/usr/lib/libX11.sa";
  124.   $LIB_XT="/usr/lib/libXt.sa";
  125.  
  126.   if (! -f $LIB_X11) {
  127.     $LIB_X11="$X11_DIR/lib/libX11.sa";
  128.   }
  129.   if (! -f $LIB_X11) {
  130.     die "Could not find libX11.sa";
  131.   }
  132.   if (! -f $LIB_XT) {
  133.     $LIB_XT="$X11_DIR/lib/libXt.sa";
  134.   }
  135.   if (! -f $LIB_XT) {
  136.     die "Could not find libXt.sa";
  137.   }
  138.   print "X11: using $LIB_X11 and $LIB_XT\n";
  139. }
  140.  
  141. print "Using $LIB_C $LIB_M\n";
  142.  
  143. chop($LIB_GCC=qx{ find /usr/lib/gcc-lib -name '2.*' -print});
  144.  
  145. die "Could not find libgcc!" unless length($LIB_GCC)!=0;
  146. print "LIB_GCC is $LIB_GCC\n";
  147.  
  148. #
  149. print "The following files are in JUMP_DIR:\n";
  150. system("ls -aC");
  151. print "Press RETURN to continue\n";
  152. <>;
  153.  
  154. $laststage="";
  155.  
  156. for(;;) {
  157.    local $cmd;
  158.    chdir($ROOTDIR);
  159.    print "q)uit\n";
  160.    print "l)ist files in JUMP_DIR cj) clean jumpdir cl) clean lib* cs) clean *.s\n\n";
  161.    print "1) compile stage 1: make clean; make\n";
  162.    print "1a)retry   stage 1: make\n";
  163.    print "2) build jump.import\n";
  164.    print "3) compile stage 2: make clean; make\n";
  165.    print "3a)retry   stage 2: make\n";
  166.    print "4) build shared library\n";
  167.    print "5) install in $DEST_DIR/\n";
  168.    print "\nlaststage was: $laststage\n";
  169.  
  170.    $_=<>;
  171.    $cmd=$_;
  172.    SWITCH: {
  173.     if (/^cs\n/) { system("rm -f *.s");
  174.          print "In JUMP_DIR are:\n";
  175.          system("ls -aC $JUMP_DIR");
  176.          last SWITCH;
  177.     }
  178.     if (/^cl\n/) { system("rm -f $JUMP_DIR/*");
  179.          print "In JUMP_DIR are:\n";
  180.          system("ls -aC $JUMP_DIR");
  181.          last SWITCH;
  182.     }
  183.     if (/^cj\n/) { system("rm -f $JUMP_DIR/*");
  184.          print "In JUMP_DIR are:\n";
  185.          system("ls -aC $JUMP_DIR/");
  186.          last SWITCH;
  187.     }
  188.     if (/^l\n/)  { print "In JUMP_DIR are:\n";
  189.          system("ls -aC $JUMP_DIR");
  190.          last SWITCH;
  191.     }
  192.     if (/^1\n/)  { system("pwd");
  193.     print "compile stage 1, logged to make.log\n" ;
  194.     system("make clean");
  195.     system("make $SHOPT all 2>&1 | tee make.log");
  196.     system("less make.log");
  197.     last SWITCH;
  198.     }
  199.     if (/^1a\n/) {
  200.     print "compile stage 1, retry, logged to make.log\n";
  201.         system("make $SHOPT all 2>&1 | tee make.log");
  202.     system("less make.log");
  203.     last SWITCH;
  204.     }
  205.     if (/^2\n/) {
  206.     chdir($JUMP_DIR);
  207.     print "generating list of imported/ignored Symbols (jump.import)\n";
  208.     system("getvars");
  209.     system("getfuncs");
  210.     print "$LIB_C\n";
  211.     system("nm --no-cplus -o $LIB_C |grep __GOT_ | sed 's/__GOT_/_/' >jump.import");
  212.     if ($NEED_X) {
  213.     print "$LIB_X\n";
  214.         system("nm --no-cplus -o $LIB_X |grep __GOT_ | sed 's/__GOT_/_/' >>jump.import");
  215.     print "$LIB_XT\n";
  216.         system("nm --no-cplus -o $LIB_XT |grep __GOT_ | sed 's/__GOT_/_/' >>jump.import");
  217.     }
  218.         print "$LIB_M\n";
  219.         system("nm --no-cplus -o $LIB_M |grep __GOT_ | sed 's/__GOT_/_/' >>jump.import");
  220.     last SWITCH;
  221.     }
  222.     if (/^3\n/) {
  223.     print "compile stage 2: make clean;make\n";
  224.         system("make clean");
  225.         system("make $SHOPT ) 2>&1 | tee make.log");
  226.     system("less make.log");
  227.     last SWITCH;
  228.     }
  229.     if (/^3a\n/) {
  230.     print "retry stage 2: make\n";
  231.         system("make $SHOPT 2>&1 | tee make.log");
  232.     system("less make.log");
  233.     last SWITCH;
  234.     }
  235.     if (/^4\n/) {
  236.     local $MAGIC_NUM;
  237.     chdir($JUMP_DIR);
  238.     print "mkimage\n";
  239.         # getsize, build the image and lib
  240.     system("getsize >jump.vars-new");
  241.     system("mv -f jump.vars jump.vars-old");
  242.     system("mv jump.vars-new jump.vars");
  243.     # create image and stubs
  244.     $MAGIC_NUM="-v $VERSION -a $ADDR -g $G_SIZE -j $J_SIZE";
  245.     if( $NEED_X ) {
  246.         system("mkimage -f -l $JUMP_LIB $MAGIC_NUM -- -L$LIB_GCC -L$X11_DIR/lib $ROOTDIR/$JUMP_LIB.a $ADD_LIBS -lXt -lX11 -lg++ -lm -lgcc -lc");
  247.     } else {
  248.         system("mkimage -f -l $JUMP_LIB $MAGIC_NUM -- -L$LIB_GCC $ROOTDIR/$JUMP_LIB.a $ADD_LIBS -lg++ -lm -lgcc -lc 2>&1 |less");
  249.     }
  250.     system("mkstubs -l $JUMP_LIB $MAGIC_NUM -- $JUMP_LIB");
  251.     last SWITCH;
  252.     }
  253.     if (/^5\n/) {
  254.     chdir($JUMP_DIR);
  255.     print "Installing in $DEST_DIR (using mv)\n";
  256.     system("mv $JUMP_LIB.so.$VERSION $DEST_DIR");
  257.     system("mv $JUMP_LIB.sa $DEST_DIR");
  258.     system("ldconfig -n $DEST_DIR");
  259.     last SWITCH;
  260.     }
  261.     if (/^q/) {
  262.     print "Goodbye\n";
  263.     exit 0;
  264.     }
  265.     print "wrong command";
  266.     $cmd=$laststage; # save last stage
  267.     last SWITCH;
  268.   } # SWITCH
  269.   $laststage=$cmd
  270. } #main loop
  271.  
  272. # check_address: find out whether the address is already used, or the
  273. # official library resides in another address.
  274. # We should check /etc/ld.so.conf
  275. sub check_address {
  276.   local $libname = "";
  277.   local $addr = 0;
  278.   local $end = 0;
  279.   local $my_addr = hex($ADDR);
  280.   local $my_end = $my_addr + hex($G_SIZE) + hex($J_SIZE);
  281.   local $my_libname = "lib$NAME.so";
  282.  
  283.   open( TABLE_DESCRIPTION, "grep -v ^# /usr/dll/table_description|" );
  284.  
  285.   while( <TABLE_DESCRIPTION> ) {
  286.      chop;
  287.      SWITCH: {
  288.         if (s/^Library://) {
  289.         if( $addr != 0 ) {
  290.           # do we have the same name?
  291.           if( index($my_libname, $libname) != -1 ) {
  292.             print "Found library in description table!\n";
  293.             if( $addr == $my_addr ) {
  294.                print "Same starting address...\n";
  295.             } else {
  296.                print "Address does not match!\n";
  297.                print "Wanted $my_addr, got $addr.\n";
  298.             }
  299.             if ($end == $my_end) {
  300.                print "Same end address...\n";
  301.             } else {
  302.                print "Ending addresses do not match!\n";
  303.                print "Wanted $my_end, $end.\n";
  304.             }
  305.           } elsif ( not (
  306.             (($my_addr < $addr) and ($my_end < $addr)) or
  307.             (($my_addr > $end ) and ($my_end > $end ))
  308.                )) {
  309.              print "Warning!! Possible conflict with $libname!\n";
  310.           }
  311.         }
  312.         $libname=$_;
  313.                 last SWITCH;
  314.         }
  315.         if (s/^Start://) {
  316.         $addr=hex($_);
  317.         }
  318.         if (s/^End//) {
  319.         $end=hex($_);
  320.                 last SWITCH;
  321.         }
  322.      } #  SWITCH
  323.   }    #  while
  324. }      #  find_collision
  325.  
  326.